home *** CD-ROM | disk | FTP | other *** search
/ Suzy B Software 2 / Suzy B Software CD-ROM 2 (1994).iso / prntutil / gs252b / ps / gs_2asc.ps < prev    next >
Text File  |  1995-04-25  |  6KB  |  177 lines
  1. %    Copyright (C) 1991, 1992 Aladdin Enterprises.  All rights reserved.
  2. %    Distributed by Free Software Foundation, Inc.
  3. %
  4. % This file is part of Ghostscript.
  5. %
  6. % Ghostscript is distributed in the hope that it will be useful, but
  7. % WITHOUT ANY WARRANTY.  No author or distributor accepts responsibility
  8. % to anyone for the consequences of using it or for whether it serves any
  9. % particular purpose or works at all, unless he says so in writing.  Refer
  10. % to the Ghostscript General Public License for full details.
  11. %
  12. % Everyone is granted permission to copy, modify and redistribute
  13. % Ghostscript, but only under the conditions described in the Ghostscript
  14. % General Public License.  A copy of this license is supposed to have been
  15. % given to you along with Ghostscript so you can know your rights and
  16. % responsibilities.  It should be in a file named COPYING.  Among other
  17. % things, the copyright notice and this notice must be preserved on all
  18. % copies.
  19.  
  20. % Extract the ASCII text from a PostScript file.  Nothing is displayed.
  21. % Instead, lines are written to stdout as follows:
  22. %    F <height> <width> (<fontname>)
  23. %        indicate font height and width of a space
  24. %    S <x> <y> (<string>) <width>
  25. %        display a string
  26. %    P
  27. %        end of page
  28. % 
  29. % <height> is an integer expressed in tenths of a point
  30. % <width> is an integer in tenths of a point.
  31. % <x> and <y> are integer coordinates, in tenths of a point, with origin
  32. %   at lower left.
  33. % <string> and <fontname> are string represented with the standard
  34. %   PostScript escape conventions.
  35. % The idea is similar to Glenn Reid's `distillery', only a lot more
  36. % simple-minded, and less robust.
  37.  
  38. % Note that this code will only work properly if systemdict is writable
  39. % and if `binding' the definitions of operators defined as procedures
  40. % is deferred.  For this reason, it is normally invoked with
  41. %    gs -q -dNOBIND -dWRITESYSTEMDICT gs_2asc.ps
  42.  
  43. % Thanks to J Greely <jgreely@cis.ohio-state.edu> for improvements
  44. % to this code.
  45.  
  46. /QUIET true def
  47. systemdict wcheck { systemdict } { userdict } ifelse begin
  48.  
  49. % Disable the display operators.
  50.  
  51. /eofill { newpath } odef
  52. /erasepage { } odef
  53. /fill { newpath } odef
  54. /stroke { newpath } odef
  55.  
  56. % The image operators must read the input, but do nothing.
  57.  
  58. /colorimage { gsave nulldevice //colorimage grestore } odef
  59. /image { gsave nulldevice //image grestore } odef
  60. /imagemask { gsave nulldevice //imagemask grestore } odef
  61.  
  62. % Redefine the end-of-page operators.
  63.  
  64. /copypage { (P\n) //print } odef
  65. /showpage { copypage erasepage initgraphics } odef
  66.  
  67. % Redefine `show'.
  68.  
  69. % Set things up so our output will be in tenths of a point, with origin at
  70. % lower left.  This isolates us from the peculiarities of individual devices.
  71. /.show.ident.matrix matrix def
  72. /.show.ident
  73.  { gsave initmatrix 0.1 dup scale .show.ident.matrix currentmatrix grestore
  74.  } def
  75. /.coord { transform .show.ident itransform } odef
  76. /.dcoord { dtransform .show.ident idtransform } odef
  77. /.showfont
  78. %old code - This didn't work right for me with all fonts.
  79. %
  80. % { 0 currentfont /FontBBox get dup 3 get exch 1 get sub
  81. %   currentfont /FontMatrix get dtransform dtransform
  82. %   exch abs exch abs max round
  83. %   (F ) //print //.stdout exch write==only (\n) //print
  84. % } odef
  85. %
  86. %unfortunately, my way bombs on one of my test files in
  87. %--%show_continue--(?!).  It's from dvi2ps, which molests
  88. %the fonts in some way. --jgreely
  89.  { (F ) //print
  90.    gsave
  91.      % figure out (roughly) the maximum height of the current
  92.      % font.  I picked this string for a mix of ascenders and
  93.      % descenders, with digits tossed in in case of oldstyle
  94.      newpath 0 0 moveto
  95.      (Xyhq69) false charpath flattenpath pathbbox newpath
  96.      exch 4 -1 roll sub 3 1 roll exch sub .dcoord
  97.      round abs //.stdout exch write==only pop
  98.      ( ) //print
  99.      % oddly enough, the "charpath...pathbbox" stuff didn't work
  100.      % right for space in courier
  101.      ( ) stringwidth
  102.      .dcoord pop
  103.      round //.stdout exch write==only
  104. %     ( ) //print
  105. %     //.stdout currentfont /FontName get
  106. %     dup type /nametype eq { =string cvs } if
  107. %     write==only
  108.      (\n) //print
  109.    grestore
  110.  } odef
  111.  
  112. /.showstring
  113.  { (S ) //print
  114.    gsave
  115.      currentpoint .coord
  116.      exch round dup //.stdout exch write==only
  117.      ( ) //print
  118.      exch round dup //.stdout exch write==only
  119.      ( ) //print
  120.      moveto dup //.stdout exch write==only
  121.      ( ) //print
  122.    grestore dup stringwidth pop 0 rmoveto
  123.    stringwidth .dcoord pop
  124.    round //.stdout exch write==only
  125.    (\n) //print
  126.  } odef
  127.      
  128. /show
  129.  { .showfont .showstring
  130.  } odef
  131.  
  132. % Redefine the other string display operators in terms of `show'.
  133.  
  134. /.show1 { ( ) dup 0 3 index put exch pop .showstring } odef
  135. /ashow
  136.  { .showfont
  137.    { .show1 2 copy rmoveto } forall
  138.    exch neg exch neg rmoveto
  139.  } odef
  140. /widthshow
  141.  { .showfont
  142.    { 2 copy .show1 eq { 1 index 2 index rmoveto } if } forall
  143.    pop pop pop
  144.  } odef
  145. /awidthshow
  146.  { .showfont
  147.    { dup .show1 3 index eq { 4 index 5 index rmoveto } if
  148.      2 copy rmoveto
  149.    } forall
  150.    exch neg exch neg rmoveto
  151.    pop pop pop
  152.  } odef
  153. /kshow
  154.  { .showfont
  155.    { .show1 dup exec } forall pop
  156.  } odef
  157.  
  158. % Redirect the printing operators.
  159.  
  160. /.stdout (_temp_.out) (w) file def
  161. /.stderr (_temp_.err) (w) file def
  162. /print { //.stdout exch writestring } odef
  163.  
  164. end
  165.  
  166. % Bind the operators we just defined, and all the others if we didn't
  167. % do it before.
  168.  
  169. bindoperators
  170. NOBIND currentdict systemdict ne and
  171.  { systemdict begin bindoperators end }
  172. if
  173.  
  174. % Make systemdict read-only if it wasn't already.
  175.  
  176. systemdict wcheck { systemdict readonly pop } if
  177.